COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "DUMPER"
C00004 ENDMK
C⊗;
BEGIN "DUMPER"

COMMENT "PUNCHES ON PAPER TAPE A PDP11 BIN FILE IN ABSOLUTE LOADER
	FORMAT";

DEFINE ⊃="COMMENT",CR="'15",LF="'12",CRLF="('15&'12)";         

INTEGER DUM,CHAN,I,J,NUMW;
INTEGER EOF,PTP;
INTEGER ARRAY A[1:200];
STRING NAME;
STRING LST,ONE,COMMA,HEAD;
REAL ANG,PI,SN,CS;

⊃ INITIALIZE DISK FILE;

PRINT(CRLF,CRLF,"FILE NAME = ");
NAME ← INCHWL;
CHAN←GETCHAN;
OPEN(CHAN,"DSK",'10,4,0,128,DUM,EOF);
LOOKUP(CHAN,NAME,DUM);
PTP←GETCHAN;
OPEN(PTP,"PTP",'10,0,4,128,DUM,DUM);

EOF ← 0;
DO BEGIN
	ARRYIN(CHAN,A[1],128);
	NUMW ← 128;
	IF EOF ≠ 0 THEN START_CODE
		MOVE EOF;
		HRLI;
		MOVEM NUMW;
	END;
	ARRYOUT(PTP,A[1],NUMW);
END UNTIL EOF≠0;
RELEASE(CHAN);
RELEASE(PTP);
END